
   2 .
   3 .SPACE CHASE
   4 :RETURN 
   5 O=0;E=0
  10 &(23)=255
  20 CLEAR 
  30 BC=0;FC=26
  40 NT=0
  50 FOR Z=1TO 50
  60 BOX RND (160)-80,RND (88)-44,1,1,1
  70 NEXT Z
  80 F=50;G=50
  90 A=-45;B=15
 100 X=40;Y=-10
 110 GOSUB 1000
 130 CY=44
 140 PRINT #8,F,#10,G
 150 GOSUB 4000
 160 IF F>0IF JX(1)#0F=F-1;A=A+JX(1)×10;&(21)=255
 170 IF F>0IF JY(1)#0F=F-1;B=B+JY(1)×10;&(21)=255
 180 GOSUB 4000
 190 IF F>3IF TR(1)=1F=F-3;GOSUB 1200
 200 IF F>10IF KN(1)>0F=F-2
 210 GOSUB 5000
 220 IF G>0IF JX(2)#0G=G-1;X=X+JX(2)×10;&(21)=255
 230 IF G>0IF JY(2)#0G=G-1;Y=Y+JY(2)×10;&(21)=255
 240 GOSUB 5000
 245 IF F<1IF G<1GOTO 10
 250 IF G>3IF TR(2)=1G=G-3;GOSUB 1300
 260 IF G>10IF KN(2)>0G=G-2
 270 IF JX(1)=0IF JY(1)=0GOTO 290
 280 GOTO 130
 290 IF JX(2)=0IF JY(2)=0&(21)=0
 300 GOTO 130
 310 IF L=0IF M=0&(21)=0
 320 GOTO 130
1000 C=X;D=Y
1010 FOR Z=1TO 2
1040 BOX X,Y,3,1,3
1050 BOX X+2,Y,1,5,3
1060 BOX X-2,Y,1,5,3
1070 X=A;Y=B
1080 NEXT Z
1090 X=C;Y=D
1100 RETURN 
1200 T=20
1210 IF A>X T=-20
1215 NT=3
1220 FOR Z=1TO 10
1230 BOX A+T,B,40,1,3
1235 MU="V"
1240 NEXT Z
1245 NT=0
1250 IF X>A-40IF X<A+40GOTO 1270
1260 RETURN 
1270 IF Y>B-6IF Y<B+6GOTO 1290
1280 RETURN 
1290 GOTO 1400
1300 T=20
1310 IF X>A T=-20
1315 NT=3
1320 FOR Z=1TO 10
1330 BOX X+T,Y,40,1,3
1335 MU="W"
1340 NEXT Z
1345 NT=0
1350 IF A>X-40IF A<X+40GOTO 1370
1360 RETURN 
1370 IF B>Y-6IF B<Y+6GOTO 1390
1380 RETURN 
1390 GOTO 1500
1400 BOX X,Y,15,15,3
1401 IF G>10IF KN(2)>0G=G-10;BOX X,Y,15,15,3;RETURN 
1405 BOX X,Y,15,15,2
1406 O=O+1
1410 &(21)=0
1415 CY=0;PRINT "ORK",#3,O,"    ELK",#3,E
1420 IF &(22)=16GOTO 10
1430 GOTO 1420
1500 BOX A,B,15,15,3
1505 IF F>10IF KN(1)>0F=F-10;BOX A,B,15,15,3;RETURN 
1510 BOX A,B,15,15,2
1515 E=E+1
1520 GOTO 1410
4000 BOX A,B,3,1,3
4030 BOX A+2,B,1,5,3
4040 BOX A-2,B,1,5,3
4050 RETURN 
5000 BOX X,Y,3,1,3
5030 BOX X+2,Y,1,5,3
5040 BOX X-2,Y,1,5,3
5050 RETURN 
>RUN 
